home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / CaseConvert / symbols.def < prev    next >
Text File  |  1986-08-05  |  698b  |  34 lines
  1. (* 
  2.    MODULE - Symbols
  3.    
  4.    Symbol table handling routines.
  5.    
  6.    A symbol is terminated either by a null character or
  7.    by the bounds of the array. The user must make sure
  8.    that duplicate symbols are not inserted.
  9.    
  10.    Created: 3/29/84
  11.    
  12.  
  13.    Copyright (c) 1986 - by Richie Bielak
  14.    
  15.    This program maybe freely copied, but please leave my name in.
  16.    Thanks....Richie
  17.  
  18.  
  19. *)
  20.  
  21. DEFINITION MODULE Symbols;
  22.  
  23.  EXPORT QUALIFIED
  24.         InsertSymbol,
  25.         FindSymbol;
  26.         
  27.   
  28.  PROCEDURE InsertSymbol (VAR Symbol : ARRAY OF CHAR);
  29.  
  30.  PROCEDURE FindSymbol (VAR KeySymbol : ARRAY OF CHAR;
  31.                       VAR RetSymbol  : ARRAY OF CHAR) : BOOLEAN;
  32.                      
  33. END Symbols.
  34.